000100******************************************************************
000200*PROGRAM : Add Menu                                              *
000300*AUTHOR  : Minh-Tuan Ta                                          *
000400******************************************************************
000500 IDENTIFICATION DIVISION.
000600 PROGRAM-ID. ADDMENU.
000700 ENVIRONMENT DIVISION.
000800 DATA DIVISION.
000900 WORKING-STORAGE SECTION.
001000 01  WS-VARS.
001100     03  WS-DATE.
001200         05  WS-YEAR         PIC 99.
001300         05  WS-MONTH        PIC 99.
001400         05  WS-DAY          PIC 99.
001500     03  WS-SEL              PIC X.
001600 SCREEN SECTION.
001700 01  MENUSCRN.
001800     03  BLANK SCREEN.
001900     03  MENU.
002000         05  LINE 1  COL 01 VALUE "ENROLLMENT MANAGEMENT - ADD MEN
002100-            "U".
002200         05          COL 73 PIC 9(2) FROM WS-MONTH.
002300         05          COL 75 VALUE "/".
002400         05          COL 76 PIC 9(2) FROM WS-DAY.
002500         05          COL 78 VALUE "/".
002600         05          COL 79 PIC 9(2) FROM WS-YEAR.
002700         05  LINE 6  COL 34  VALUE "ENROLLMENT MANAGEMENT".
002800         05  LINE 8  COL 39  VALUE "ADD MENU".
002900         05  LINE 10 COL 29  VALUE "1 SCHEDULE".
003000         05  LINE 11 COL 29  VALUE "2 STUDENT".
003100         05  LINE 12 COL 29  VALUE "3 INSTRUCTOR".
003200         05  LINE 13 COL 29  VALUE "4 COURSE".
003300         05  LINE 14 COL 29  VALUE "5 BUILDING".
003400         05  LINE 16 COL 31  VALUE "SELECTION (X=MAIN MENU)".
003500         05  LINE 16 COL 29  PIC X TO WS-SEL AUTO.
003600
003700 PROCEDURE DIVISION.
003800 100-MAIN.
003900     ACCEPT WS-DATE FROM DATE
004000     MOVE SPACES TO WS-SEL
004100     PERFORM UNTIL WS-SEL = 'X' OR 'x'
004200         DISPLAY MENUSCRN
004300         ACCEPT  MENUSCRN
004400         EVALUATE WS-SEL
004500             WHEN '1'
004600                 CALL 'SCHED-A'
004700             WHEN '2'
004800                 CALL 'STU-A'
004900             WHEN '3'
005000                 CALL 'INST-A'
005100             WHEN '4'
005200                 CALL 'CRS-A'
005300             WHEN '5'
005400                 CALL 'BLDG-A'
005500         END-EVALUATE
005600     END-PERFORM
005700     EXIT PROGRAM.
005800
